home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d12
/
v7n11.arc
/
LN711.ARC
/
CIRCLE.BAS
< prev
next >
Wrap
BASIC Source File
|
1988-06-21
|
524b
|
15 lines
DEFINT A-Z
SCREEN 9
WHILE INKEY$ = "" 'continue until a key is pressed
X = RND * 640 'random X center
Y = RND * 350 'random Y center
Radius = RND * 100 'random radius
C = (C MOD 14) + 1 'increment C from 1 to 14 then back to 1 again
CIRCLE (X, Y), Radius, 15 'draw circle in white
PAINT (X, Y), C, 15 'fill to boundaries of the circle in color C
CIRCLE (X, Y), Radius, C 'redraw the circle in color C
WEND